VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmUpdater 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7215
   Icon            =   "frmUpdater.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   7215
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer tmrArrow2 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   4200
      Top             =   1800
   End
   Begin VB.Timer tmrArrow1 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   3720
      Top             =   1800
   End
   Begin VB.Timer tmrOverAll 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   4200
      Top             =   1320
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   2175
      Left            =   0
      Picture         =   "frmUpdater.frx":0CCA
      ScaleHeight     =   2175
      ScaleWidth      =   1935
      TabIndex        =   5
      Top             =   0
      Width           =   1935
   End
   Begin VB.Timer tmrAutoUpdater 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   6720
      Top             =   1800
   End
   Begin VB.CommandButton btnCheck 
      Caption         =   "Check for Updates..."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Top             =   2400
      Width           =   5895
   End
   Begin VB.CommandButton btnContinue 
      Caption         =   "Download Update"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   2400
      Visible         =   0   'False
      Width           =   2895
   End
   Begin VB.Timer tmrUpdateNow 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   5280
      Top             =   1320
   End
   Begin VB.Timer tmrNoUpdate 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   5760
      Top             =   1320
   End
   Begin VB.Timer tmrMessage 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   6240
      Top             =   1320
   End
   Begin VB.Timer tmrDot3 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   6240
      Top             =   1800
   End
   Begin VB.Timer tmrDot2 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   5760
      Top             =   1800
   End
   Begin VB.Timer tmrDot 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   5280
      Top             =   1800
   End
   Begin VB.Timer tmrMain 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   6720
      Top             =   1320
   End
   Begin InetCtlsObjects.Inet InetDownload 
      Left            =   4680
      Top             =   1560
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      Protocol        =   4
      RemoteHost      =   "vnb.privt.com"
      URL             =   "http://vnb.privt.com/2.0/dl/VectorNet%20Bot.exe"
      Document        =   "/2.0/dl/VectorNet%20Bot.exe"
   End
   Begin VB.TextBox txtVersionCheck 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   375
      Left            =   5280
      TabIndex        =   0
      Top             =   1320
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   7320
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Label lblNewUpdate 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   735
      Left            =   1920
      TabIndex        =   4
      Top             =   1440
      Width           =   5295
   End
   Begin VB.Label lblMessage 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Click ""Check for Updates..."" to begin"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   975
      Left            =   2040
      TabIndex        =   3
      Top             =   360
      Width           =   5175
   End
End
Attribute VB_Name = "frmUpdater"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ver As String

Private Sub btnCheck_Click()

tmrDot.Enabled = True
tmrMain.Enabled = False

    If txtVersionCheck.text = "2.4" Then
      tmrNoUpdate.Enabled = True
    Else
      tmrUpdateNow.Enabled = True
    End If
    
btnContinue.Visible = True

End Sub

Private Sub btnContinue_Click()
    
    downloadPath = App.Path & "\VectorNet Bot " & txtVersionCheck.text & ".exe"
    downloadurl = "http://vnb.privt.com/updated/VectorNet%20Bot.exe"
    
    Call PrintURLToFile(downloadPath, downloadurl)
    tmrMessage.Enabled = True
    
    tmrDot.Enabled = False
    tmrDot2.Enabled = False
    tmrDot3.Enabled = False
    
    lblMessage.Caption = "Downloads will appear in your (Bot Folder) or type: CTRL + O"

End Sub

Private Sub Form_Load()

ver = "2.4"

gtv = InetDownload.OpenURL("http://vnb.privt.com/updated/ver.txt")

Me.Caption = "VectorNet Bot - Check for Updates v2.0"
txtVersionCheck.text = gtv
tmrMain.Enabled = True
tmrOverAll.Enabled = True

End Sub

Private Sub tmrArrow1_Timer()

btnContinue.Caption = ">! Download Update !<"
tmrArrow2.Enabled = True
tmrArrow1.Enabled = False

End Sub

Private Sub tmrArrow2_Timer()

btnContinue.Caption = ">> Download Update <<"
tmrArrow2.Enabled = False
tmrArrow1.Enabled = True

End Sub

Private Sub tmrAutoUpdater_Timer()

tmrDot.Enabled = True
tmrMain.Enabled = False

    If txtVersionCheck.text = "2.4" Then
      tmrNoUpdate.Enabled = True
    Else
      tmrUpdateNow.Enabled = True
    End If
    
    tmrAutoUpdater.Enabled = False

End Sub

Private Sub tmrDot_Timer()

    lblMessage.Caption = "VectorNet Bot is: Checking for updates."
    tmrDot2.Enabled = True
    btnCheck.Enabled = False

End Sub

Private Sub tmrDot2_Timer()

    lblMessage.Caption = "VectorNet Bot is: Checking for updates.."
    tmrDot.Enabled = False
    btnCheck.Enabled = False
    tmrDot3.Enabled = True

End Sub

Private Sub tmrDot3_Timer()

    lblMessage.Caption = "VectorNet Bot is: Checking for updates..."
    tmrDot.Enabled = True
    tmrDot2.Enabled = False
    tmrDot3.Enabled = False
    btnCheck.Enabled = False

End Sub

Private Sub tmrMain_Timer()

    tmrDot.Enabled = False
    tmrDot2.Enabled = False
    tmrDot3.Enabled = False
    btnCheck.Enabled = True
    tmrMessage.Enabled = False

End Sub

Private Sub tmrMessage_Timer()

    lblMessage.Caption = "Client has been updated to, " & txtVersionCheck.text & " Check your, bot folder for your new downloaded version.!"
    tmrMessage.Enabled = False
    tmrMain.Enabled = True
    
    btnCheck.Left = 1800

End Sub

Private Sub tmrNoUpdate_Timer()

ver = "v2.4"

    lblMessage.Caption = "Sorry no updates are available, VectorNet Bot " & ver & " is the latest version."
    
    btnCheck.Enabled = True
    btnContinue.Visible = False
    
    tmrDot.Enabled = False
    tmrDot2.Enabled = False
    tmrDot3.Enabled = False
    tmrMain.Enabled = True
    
    btnCheck.Left = 1800
    btnCheck.Width = 5895
    btnCheck.Height = 375

End Sub

Private Sub tmrOverAll_Timer()

If lblMessage.Caption = "Updates are available!" Then
    btnCheck.Left = 4200
    btnCheck.Width = 2895
    btnCheck.Height = 375
 Else
   Exit Sub
End If

End Sub

Private Sub tmrUpdateNow_Timer()

    lblMessage.Caption = "Updates are available!"
    lblNewUpdate.Caption = "VectorNet Bot v" & txtVersionCheck.text & " is available."
    
    btnContinue.Enabled = True
    tmrArrow1.Enabled = True
    
    tmrDot.Enabled = False
    tmrDot2.Enabled = False
    tmrDot3.Enabled = False
    tmrMain.Enabled = True
    
    btnCheck.Left = 4200
    btnCheck.Width = 2895
    btnCheck.Height = 375

End Sub
